﻿Imports Training.Common

Partial Public Class ViewUserResults
    Inherits System.Web.UI.Page
    Public uName As String ' username
    Dim uid As Integer ' userid

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsNothing(Request.QueryString("uid")) And Not IsNothing(Request.QueryString("unm")) Then
            uid = Request.QueryString("uid")
            uName = Request.QueryString("unm")
        Else
            Response.Redirect("Users.aspx")
        End If
    End Sub

    ''' <summary>
    ''' Delete Button Click Event, Delete User Quiz Data
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub btnDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        DeleteAllUserQuizData(uid)
        Response.Redirect("Users.aspx")
    End Sub
End Class